home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / m_to_r / roppop / unit1.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1996-09-15  |  1.0 KB  |  48 lines
  1. unit Unit1;
  2.  
  3. (* Small demonstration code added by Corion 1995 *)
  4. (*** * Corion Internet Imports * ***)
  5. (***  Delphi support since 1995  ***)
  6.  
  7. interface
  8.  
  9. uses
  10.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  11.   Forms, Dialogs,
  12.   TRopPop, StdCtrls;
  13.  
  14. type
  15.   TForm1 = class(TForm)
  16.     Label1: TLabel;
  17.     procedure Label1Click(Sender: TObject);
  18.   private
  19.     { Private-Deklarationen }
  20.     Win : TRopWin;
  21.   public
  22.     { Public-Deklarationen }
  23.   end;
  24.  
  25. var
  26.   Form1: TForm1;
  27.  
  28. implementation
  29.  
  30. {$R *.DFM}
  31.  
  32. procedure TForm1.Label1Click(Sender: TObject);
  33. begin
  34.   Win := TRopWin.Create( Self );
  35.   Win.Lines.Add( '1) Dies ist ein Test' );
  36.   Win.Lines.Add( '2) Dies ist ein Test' );
  37.   Win.Lines.Add( '3) Dies ist ein Test' );
  38.   Win.Lines.Add( '4) Dies ist ein Test' );
  39.   Win.Lines.Add( 'Hier drauf klicken, um das Fenster wieder zu entfernen' );
  40.   (* In die linke obere Ecke des Labels *)
  41.   Win.XPos := Left + Label1.Left + 10;
  42.   Win.YPos := Top + Label1.Top + 10;
  43.   Win.Fire;
  44.   Win.Destroy;
  45. end;
  46.  
  47. end.
  48.